From: Karl Heuer <kwzh@gnu.org>
Date: Fri, 11 Feb 1994 22:01:56 +0000 (+0000)
Subject: (user-original-login-name): Reduce to a defalias, since it's redundant with
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~93148
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=cef7ae6e1aca2ffa9c163ece8c4668b5b91ef416;p=emacs.git

(user-original-login-name): Reduce to a defalias, since it's redundant with
user-login-name.  All callers changed to use user-login-name.
---

diff --git a/lisp/subr.el b/lisp/subr.el
index 2817d9237de..4a50dca95f3 100644
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -614,10 +614,7 @@ Accept any number of arguments, but ignore them."
   (while t
     (signal 'error (list (apply 'format args)))))
 
-(defun user-original-login-name ()
-  "Return user's login name from original login.
-This tries to remain unaffected by `su', by looking in environment variables."
-  (or (getenv "LOGNAME") (getenv "USER") (user-login-name)))
+(defalias 'user-original-login-name 'user-login-name)
 
 (defun start-process-shell-command (name buffer &rest args)
   "Start a program in a subprocess.  Return the process object for it.